$file = "frma_with_call.txt";
open(BUFF,$file);
open(WRBUFF,">out_new_frma_presentcall.txt");
$line = <BUFF>;
print WRBUFF $line;
$num1 = 0;
$num2 = 0;
while($line = <BUFF>)
{
	chomp $line;
	if($line =~ m/A/)
	{
		$num1++;	
		print WRBUFF $line."\t"."A"."\n";	
	}
	else
	{
		$num2++;
		print WRBUFF $line."\t"."P"."\n";
	}


}
print "$num1\n$num2\n";
